/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Tele / C / Comet2.1.3.sit / 3270XCMD / TNSendCmd.c

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 54 4e 53 65 6e 64 | 43 6d 64 2e 63 00 00 00 |..TNSend|Cmd.c...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 07 bc 00 | 00 01 7e a1 18 db ef a1 |........|..~.....|
|00000060| 18 db ef 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ca 08 00 00 |........|........|
|00000080| 2f 2a 20 54 4e 53 65 6e | 64 43 6d 64 2e 63 20 2d |/* TNSen|dCmd.c -|
|00000090| 2d 20 58 43 4d 44 20 74 | 6f 20 73 65 6e 64 20 61 |- XCMD t|o send a|
|000000a0| 20 63 6f 6d 6d 61 6e 64 | 20 74 6f 20 54 4e 33 32 | command| to TN32|
|000000b0| 37 30 20 74 68 72 6f 75 | 67 68 20 74 68 65 20 54 |70 throu|gh the T|
|000000c0| 4e 33 32 37 30 20 64 72 | 69 76 65 72 20 0d 09 63 |N3270 dr|iver ..c|
|000000d0| 6f 70 79 72 69 67 68 74 | 20 31 39 38 39 20 43 6f |opyright| 1989 Co|
|000000e0| 72 6e 65 6c 6c 20 55 6e | 69 76 65 72 73 69 74 79 |rnell Un|iversity|
|000000f0| 20 0d 2a 2f 0d 0d 0d 23 | 69 6e 63 6c 75 64 65 20 | .*/...#|include |
|00000100| 3c 54 79 70 65 73 2e 68 | 3e 0d 23 69 6e 63 6c 75 |<Types.h|>.#inclu|
|00000110| 64 65 20 3c 4d 65 6d 6f | 72 79 2e 68 3e 0d 23 69 |de <Memo|ry.h>.#i|
|00000120| 6e 63 6c 75 64 65 20 3c | 44 65 76 69 63 65 73 2e |nclude <|Devices.|
|00000130| 68 3e 0d 23 69 6e 63 6c | 75 64 65 20 3c 48 79 70 |h>.#incl|ude <Hyp|
|00000140| 65 72 58 43 6d 64 2e 68 | 3e 0d 23 69 6e 63 6c 75 |erXCmd.h|>.#inclu|
|00000150| 64 65 20 3c 45 72 72 6f | 72 73 2e 68 3e 0d 0d 23 |de <Erro|rs.h>..#|
|00000160| 69 6e 63 6c 75 64 65 20 | 3c 53 74 72 69 6e 67 2e |include |<String.|
|00000170| 68 3e 0d 0d 23 69 6e 63 | 6c 75 64 65 20 22 54 4e |h>..#inc|lude "TN|
|00000180| 64 72 76 72 2e 68 22 0d | 0d 0d 70 61 73 63 61 6c |drvr.h".|..pascal|
|00000190| 20 76 6f 69 64 20 64 65 | 62 75 67 67 65 72 28 29 | void de|bugger()|
|000001a0| 09 65 78 74 65 72 6e 20 | 30 78 41 39 46 46 3b 20 |.extern |0xA9FF; |
|000001b0| 20 20 0d 0d 0d 70 61 73 | 63 61 6c 20 76 6f 69 64 |  ...pas|cal void|
|000001c0| 20 54 4e 53 65 6e 64 43 | 6d 64 28 68 79 63 70 29 | TNSendC|md(hycp)|
|000001d0| 0d 58 43 6d 64 50 74 72 | 20 68 79 63 70 3b 0d 7b |.XCmdPtr| hycp;.{|
|000001e0| 0d 09 43 6e 74 72 6c 50 | 61 72 61 6d 20 64 72 76 |..CntrlP|aram drv|
|000001f0| 70 62 3b 0d 09 6c 6f 6e | 67 20 2a 20 61 72 67 73 |pb;..lon|g * args|
|00000200| 3b 0d 09 53 74 72 32 35 | 35 20 70 73 74 72 3b 0d |;..Str25|5 pstr;.|
|00000210| 09 0d 09 69 66 20 28 68 | 79 63 70 2d 3e 70 61 72 |...if (h|ycp->par|
|00000220| 61 6d 43 6f 75 6e 74 20 | 21 3d 20 33 29 20 7b 0d |amCount |!= 3) {.|
|00000230| 09 09 73 65 74 68 61 6e | 64 28 26 68 79 63 70 2d |..sethan|d(&hycp-|
|00000240| 3e 72 65 74 75 72 6e 56 | 61 6c 75 65 2c 20 22 54 |>returnV|alue, "T|
|00000250| 4e 53 65 6e 64 43 6d 64 | 20 54 4e 49 44 2c 63 6c |NSendCmd| TNID,cl|
|00000260| 61 73 73 2c 65 6e 74 72 | 79 3a 20 6e 65 65 64 20 |ass,entr|y: need |
|00000270| 33 20 61 72 67 75 6d 65 | 6e 74 73 22 29 3b 0d 09 |3 argume|nts");..|
|00000280| 09 72 65 74 75 72 6e 3b | 0d 09 7d 0d 09 0d 09 48 |.return;|..}....H|
|00000290| 4c 6f 63 6b 28 28 48 61 | 6e 64 6c 65 29 20 68 79 |Lock((Ha|ndle) hy|
|000002a0| 63 70 2d 3e 70 61 72 61 | 6d 73 5b 30 5d 29 3b 0d |cp->para|ms[0]);.|
|000002b0| 09 48 4c 6f 63 6b 28 28 | 48 61 6e 64 6c 65 29 20 |.HLock((|Handle) |
|000002c0| 68 79 63 70 2d 3e 70 61 | 72 61 6d 73 5b 31 5d 29 |hycp->pa|rams[1])|
|000002d0| 3b 0d 09 0d 09 5a 65 72 | 6f 54 6f 50 61 73 28 68 |;....Zer|oToPas(h|
|000002e0| 79 63 70 2c 20 2a 68 79 | 63 70 2d 3e 70 61 72 61 |ycp, *hy|cp->para|
|000002f0| 6d 73 5b 30 5d 2c 20 28 | 53 74 72 69 6e 67 50 74 |ms[0], (|StringPt|
|00000300| 72 29 20 26 70 73 74 72 | 5b 30 5d 29 3b 0d 09 64 |r) &pstr|[0]);..d|
|00000310| 72 76 70 62 2e 69 6f 43 | 52 65 66 4e 75 6d 20 3d |rvpb.ioC|RefNum =|
|00000320| 20 28 73 68 6f 72 74 29 | 20 53 74 72 54 6f 4e 75 | (short)| StrToNu|
|00000330| 6d 28 68 79 63 70 2c 20 | 28 53 74 72 33 31 20 2a |m(hycp, |(Str31 *|
|00000340| 29 20 26 70 73 74 72 5b | 30 5d 29 3b 0d 09 64 72 |) &pstr[|0]);..dr|
|00000350| 76 70 62 2e 63 73 43 6f | 64 65 20 3d 20 48 54 4e |vpb.csCo|de = HTN|
|00000360| 5f 53 45 4e 44 43 4d 44 | 3b 0d 09 61 72 67 73 20 |_SENDCMD|;..args |
|00000370| 3d 20 28 6c 6f 6e 67 20 | 2a 29 20 26 64 72 76 70 |= (long |*) &drvp|
|00000380| 62 2e 63 73 50 61 72 61 | 6d 5b 30 5d 3b 0d 09 2a |b.csPara|m[0];..*|
|00000390| 61 72 67 73 2b 2b 20 3d | 20 2a 20 28 6c 6f 6e 67 |args++ =| * (long|
|000003a0| 20 2a 29 20 68 79 63 70 | 2d 3e 70 61 72 61 6d 73 | *) hycp|->params|
|000003b0| 5b 31 5d 3b 0d 09 2a 61 | 72 67 73 2b 2b 20 3d 20 |[1];..*a|rgs++ = |
|000003c0| 2a 20 28 6c 6f 6e 67 20 | 2a 29 20 68 79 63 70 2d |* (long |*) hycp-|
|000003d0| 3e 70 61 72 61 6d 73 5b | 32 5d 3b 0d 09 09 2f 2a |>params[|2];.../*|
|000003e0| 20 70 61 73 73 20 74 68 | 65 20 73 74 72 69 6e 67 | pass th|e string|
|000003f0| 20 2a 73 20 74 6f 20 74 | 68 65 20 64 72 76 72 20 | *s to t|he drvr |
|00000400| 74 6f 20 70 61 73 73 20 | 6f 6e 20 74 6f 20 54 4e |to pass |on to TN|
|00000410| 33 32 37 30 20 2a 2f 0d | 09 50 42 43 6f 6e 74 72 |3270 */.|.PBContr|
|00000420| 6f 6c 28 28 50 61 72 6d | 42 6c 6b 50 74 72 29 20 |ol((Parm|BlkPtr) |
|00000430| 26 64 72 76 70 62 2c 20 | 28 42 6f 6f 6c 65 61 6e |&drvpb, |(Boolean|
|00000440| 29 20 30 29 3b 0d 0d 09 | 69 66 20 28 64 72 76 70 |) 0);...|if (drvp|
|00000450| 62 2e 69 6f 52 65 73 75 | 6c 74 29 20 7b 0d 09 09 |b.ioResu|lt) {...|
|00000460| 2f 2a 20 63 6f 6e 6e 65 | 63 74 20 63 61 6c 6c 20 |/* conne|ct call |
|00000470| 66 61 69 6c 65 64 20 2a | 2f 0d 09 09 73 77 69 74 |failed *|/...swit|
|00000480| 63 68 20 28 64 72 76 70 | 62 2e 69 6f 52 65 73 75 |ch (drvp|b.ioResu|
|00000490| 6c 74 29 20 7b 0d 09 09 | 09 63 61 73 65 20 48 54 |lt) {...|.case HT|
|000004a0| 4e 52 5f 4e 4f 54 4e 3a | 20 7b 0d 09 09 09 09 73 |NR_NOTN:| {.....s|
|000004b0| 65 74 68 61 6e 64 28 26 | 68 79 63 70 2d 3e 72 65 |ethand(&|hycp->re|
|000004c0| 74 75 72 6e 56 61 6c 75 | 65 2c 20 22 54 4e 20 69 |turnValu|e, "TN i|
|000004d0| 73 20 6e 6f 74 20 72 75 | 6e 6e 69 6e 67 22 29 3b |s not ru|nning");|
|000004e0| 0d 09 09 09 09 62 72 65 | 61 6b 3b 0d 09 09 09 7d |.....bre|ak;....}|
|000004f0| 0d 09 09 09 63 61 73 65 | 20 48 54 4e 52 5f 41 43 |....case| HTNR_AC|
|00000500| 54 49 56 45 3a 20 7b 0d | 09 09 09 09 73 65 74 68 |TIVE: {.|....seth|
|00000510| 61 6e 64 28 26 68 79 63 | 70 2d 3e 72 65 74 75 72 |and(&hyc|p->retur|
|00000520| 6e 56 61 6c 75 65 2c 20 | 22 54 4e 20 6e 6f 74 20 |nValue, |"TN not |
|00000530| 6f 70 65 6e 65 64 22 29 | 3b 0d 09 09 09 09 62 72 |opened")|;.....br|
|00000540| 65 61 6b 3b 0d 09 09 09 | 7d 0d 09 09 09 63 61 73 |eak;....|}....cas|
|00000550| 65 20 48 54 4e 52 5f 4f | 50 45 4e 3a 20 7b 0d 09 |e HTNR_O|PEN: {..|
|00000560| 09 09 09 73 65 74 68 61 | 6e 64 28 26 68 79 63 70 |...setha|nd(&hycp|
|00000570| 2d 3e 72 65 74 75 72 6e | 56 61 6c 75 65 2c 20 22 |->return|Value, "|
|00000580| 54 4e 20 68 61 73 20 6e | 6f 20 63 6f 6e 6e 65 63 |TN has n|o connec|
|00000590| 74 69 6f 6e 22 29 3b 0d | 09 09 09 09 62 72 65 61 |tion");.|....brea|
|000005a0| 6b 3b 0d 09 09 09 7d 0d | 09 09 09 63 61 73 65 20 |k;....}.|...case |
|000005b0| 48 54 4e 52 5f 43 4c 41 | 53 53 3a 20 7b 0d 09 09 |HTNR_CLA|SS: {...|
|000005c0| 09 09 73 65 74 68 61 6e | 64 28 26 68 79 63 70 2d |..sethan|d(&hycp-|
|000005d0| 3e 72 65 74 75 72 6e 56 | 61 6c 75 65 2c 20 22 49 |>returnV|alue, "I|
|000005e0| 6e 76 61 6c 69 64 20 43 | 6f 6d 6d 61 6e 64 20 43 |nvalid C|ommand C|
|000005f0| 6c 61 73 73 22 29 3b 0d | 09 09 09 09 62 72 65 61 |lass");.|....brea|
|00000600| 6b 3b 0d 09 09 09 7d 0d | 09 09 09 63 61 73 65 20 |k;....}.|...case |
|00000610| 48 54 4e 52 5f 45 4e 54 | 52 59 3a 20 7b 0d 09 09 |HTNR_ENT|RY: {...|
|00000620| 09 09 73 65 74 68 61 6e | 64 28 26 68 79 63 70 2d |..sethan|d(&hycp-|
|00000630| 3e 72 65 74 75 72 6e 56 | 61 6c 75 65 2c 20 22 49 |>returnV|alue, "I|
|00000640| 6e 76 61 6c 69 64 20 43 | 6f 6d 6d 61 6e 64 20 45 |nvalid C|ommand E|
|00000650| 6e 74 72 79 22 29 3b 0d | 09 09 09 09 62 72 65 61 |ntry");.|....brea|
|00000660| 6b 3b 0d 09 09 09 7d 0d | 09 09 09 63 61 73 65 20 |k;....}.|...case |
|00000670| 62 61 64 55 6e 69 74 45 | 72 72 3a 20 7b 0d 09 09 |badUnitE|rr: {...|
|00000680| 09 09 73 65 74 68 61 6e | 64 28 26 68 79 63 70 2d |..sethan|d(&hycp-|
|00000690| 3e 72 65 74 75 72 6e 56 | 61 6c 75 65 2c 20 22 54 |>returnV|alue, "T|
|000006a0| 4e 49 44 20 69 73 20 69 | 6e 63 6f 72 72 65 63 74 |NID is i|ncorrect|
|000006b0| 22 29 3b 0d 09 09 09 09 | 62 72 65 61 6b 3b 0d 09 |");.....|break;..|
|000006c0| 09 09 7d 0d 09 09 09 64 | 65 66 61 75 6c 74 3a 20 |..}....d|efault: |
|000006d0| 7b 0d 09 09 09 09 73 65 | 74 68 61 6e 64 28 26 68 |{.....se|thand(&h|
|000006e0| 79 63 70 2d 3e 72 65 74 | 75 72 6e 56 61 6c 75 65 |ycp->ret|urnValue|
|000006f0| 2c 20 22 55 6e 6b 6e 6f | 77 6e 20 65 72 72 6f 72 |, "Unkno|wn error|
|00000700| 22 29 3b 0d 09 09 09 09 | 62 72 65 61 6b 3b 0d 09 |");.....|break;..|
|00000710| 09 09 7d 0d 09 09 7d 0d | 09 7d 0d 09 48 55 6e 6c |..}...}.|.}..HUnl|
|00000720| 6f 63 6b 28 28 48 61 6e | 64 6c 65 29 20 68 79 63 |ock((Han|dle) hyc|
|00000730| 70 2d 3e 70 61 72 61 6d | 73 5b 30 5d 29 3b 0d 09 |p->param|s[0]);..|
|00000740| 48 55 6e 6c 6f 63 6b 28 | 28 48 61 6e 64 6c 65 29 |HUnlock(|(Handle)|
|00000750| 20 68 79 63 70 2d 3e 70 | 61 72 61 6d 73 5b 31 5d | hycp->p|arams[1]|
|00000760| 29 3b 0d 0d 7d 0d 0d 0d | 73 65 74 68 61 6e 64 28 |);..}...|sethand(|
|00000770| 74 68 61 6e 64 2c 20 73 | 74 72 29 0d 48 61 6e 64 |thand, s|tr).Hand|
|00000780| 6c 65 20 2a 20 74 68 61 | 6e 64 3b 0d 63 68 61 72 |le * tha|nd;.char|
|00000790| 20 2a 20 73 74 72 3b 0d | 7b 0d 09 69 66 20 28 2a | * str;.|{..if (*|
|000007a0| 74 68 61 6e 64 20 3d 3d | 20 4e 55 4c 4c 29 20 7b |thand ==| NULL) {|
|000007b0| 0d 09 09 2a 74 68 61 6e | 64 20 3d 20 4e 65 77 48 |...*than|d = NewH|
|000007c0| 61 6e 64 6c 65 28 28 53 | 69 7a 65 29 20 30 29 3b |andle((S|ize) 0);|
|000007d0| 0d 09 7d 0d 09 53 65 74 | 48 61 6e 64 6c 65 53 69 |..}..Set|HandleSi|
|000007e0| 7a 65 28 2a 74 68 61 6e | 64 2c 20 28 6c 6f 6e 67 |ze(*than|d, (long|
|000007f0| 29 20 28 73 74 72 6c 65 | 6e 28 73 74 72 29 20 2b |) (strle|n(str) +|
|00000800| 20 31 29 29 3b 0d 09 73 | 74 72 63 70 79 28 2a 2a | 1));..s|trcpy(**|
|00000810| 74 68 61 6e 64 2c 20 73 | 74 72 29 3b 0d 7d 0d 0d |thand, s|tr);.}..|
|00000820| 0d 0d 0d 23 69 6e 63 6c | 75 64 65 20 3c 58 43 6d |...#incl|ude <XCm|
|00000830| 64 47 6c 75 65 2e 69 6e | 63 2e 63 3e 00 00 00 00 |dGlue.in|c.c>....|
|00000840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000890| 00 00 07 3c 00 00 00 00 | 00 00 00 00 00 00 00 00 |...<....|........|
|000008a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008b0| 0b 54 4e 53 65 6e 64 43 | 6d 64 2e 63 02 00 00 00 |.TNSendC|md.c....|
|000008c0| 50 61 72 74 53 49 54 78 | 00 00 00 00 00 00 00 00 |PartSITx|........|
|000008d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 a9 8d 3a 8a 00 00 | 00 00 00 00 01 7e 00 00 |....:...|.....~..|
|00000900| 00 00 00 00 00 00 00 00 | 00 00 02 96 25 00 00 00 |........|....%...|
|00000910| 07 3c 0a 41 70 70 6c 65 | 53 68 61 72 65 00 00 00 |.<.Apple|Share...|
|00000920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000930| 00 00 00 00 02 97 25 00 | 00 00 07 3c 0e 43 6c 69 |......%.|...<.Cli|
|00000940| 70 62 6f 61 72 64 20 46 | 69 6c 65 00 00 00 00 00 |pboard F|ile.....|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 03 1f |........|........|
|00000960| 25 00 00 00 07 3c 06 63 | 6f 72 76 75 73 00 00 00 |%....<.c|orvus...|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000980| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 fa 00 00 |...H..Mo|naco....|
|00000990| 00 00 04 1c 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009a0| 00 00 00 00 00 00 00 06 | 00 04 00 29 00 02 01 85 |........|...)....|
|000009b0| 02 02 00 29 00 02 01 85 | 02 02 a1 18 95 9f 00 00 |...)....|........|
|000009c0| 01 b2 00 00 01 b9 00 00 | 00 f4 01 00 00 00 01 00 |........|........|
|000009d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 33 e8 ac |...L...L|...2.3..|
|000009e0| 05 84 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|000009f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 35 20 84 00 00 |........|...5 ...|
+--------+-------------------------+-------------------------+--------+--------+